home *** CD-ROM | disk | FTP | other *** search
/ Aminet 49 / Aminet 49 (2002)(GTI - Schatztruhe)[!][Jun 2002].iso / Aminet / biz / demo / TGest2DEMO.lha / TGest2Demo / Installa < prev   
Encoding:
Text File  |  2002-04-03  |  1.0 KB  |  33 lines
  1. ;
  2. ; $VER: Script di Installazione di TGest2DEMO v1.1 (31.03.02)
  3. ;
  4.  
  5. (set @default-dest "Work:")
  6. (set #wrongOS   (cat "TGest2DEMO necessita\n"
  7.                      "dell'OS2.0 o superiore!\n"))
  8. (set #TGest_dir (cat "Scegli il cassetto o la partizione\n"
  9.                      "dove installare il cassetto TGest2DEMO.\n"
  10.                      "Se il cassetto esiste già, allora seleziona\n"
  11.                      "il cassetto o la partizione che lo contiene."))
  12. (set #done      (cat "TGest2DEMO è stato installato\n"
  13.                      "con successo nel cassetto.\n\n"))
  14.  
  15. (set OS_ver (getversion "exec.library" (resident)))
  16. (if (< OS_ver (* 37 65536)) (abort #wrongOS))
  17.  
  18. (complete 0)
  19. (set TGest_def_dir @default-dest)
  20. (set TGest_dir (askdir (default TGest_def_dir) (prompt  #TGest_dir) (help @askdir-help)))
  21.  
  22. (set TGest_dir (tackon TGest_dir "TGest2DEMO"))
  23.  
  24. (if (NOT (exists TGest_dir)) (makedir TGest_dir (infos)))
  25.  
  26. (complete 10)
  27. (copyfiles (source "Prog/") (dest TGest_dir) (all))
  28. (complete 100)
  29.  
  30. (message #done "\"" TGest_dir "\"")
  31.  
  32. (exit)
  33.